# load file labweek8.dat into variable labweek8perfdata ignoring header data
labweek8perfdata <- read.table('~/x00076918eaa/labweek8.dat', TRUE)

# create a time series graph
plot(100-labweek8perfdata[,'X.idle'], type='b', xlab='Time in seconds', ylab='% utilisation (U_i)')

# store avg utilisation in u_i
u_i <- mean(100-labweek8perfdata[, 'X.idle'])

d_i <- u_i / 94

print(u_i)
print(d_i)

